home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-19
/
iritsm3s.zip
/
CLOSLOOP.IRT
< prev
next >
Wrap
Text File
|
1990-05-05
|
468b
|
26 lines
#
# Routines to test the boolean operations among geometric objects:
#
# Intersection between a box and a cylinder - make a hole in the box
#
b=box(vector(-3,-2,-1),6,4,2);
c=cylin(vector(0,0,-4),vector(0,0,8),1);
save_view = view_mat;
view_mat = view_mat * scale(vector(0.1, 0.1, 0.1));
a1=b+c;
interact(list(a1),false);
a2=b*c;
interact(list(a2),false);
a3=b-c;
interact(list(a3),false);
free(b);
free(c);
free(a1);
free(a2);
free(a3);